program programaPrincipal;

var {programa Principal}
cad: TCadena;


begin
     writeln ( "Introduce la cadena de caracteres (20 carac.)");
     readln(cad);
     contarVocales(cad);
end.